---
title: "Environmental Impacts of Corporations"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source_code: embed
version: 4
theme:
bootswatch: lux
---
<style>
.chart-title { /* chart_title */
font-size: 16px;
}
body{ /* Normal */
font-size: 14px;
}
</style>
```{r setup, include=FALSE}
library(flexdashboard)
pacman::p_load(circlize, chorddiag, DT, knitr, plotly, tidyverse, readxl, cluster, factoextra)
eci <- read.csv("D:/Classwork/Year 3/MTH 208/project/Corporate-Environmental-Impact-Data-2020cleaned.csv")
glimpse(eci)
```
Introduction
===
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Introduction
I am a paragraph
### Methodology
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Impact Factors
```{r}
```
### UN SDG
```{r}
```
EDA
===
Column {data-width=500}
-----------------------------------------------------------------------
### Chart A
<div class='tableauPlaceholder' id='viz1713371895380' style='position: relative'><noscript><a href='#'><img alt='Environmental Cost ' src='https://public.tableau.com/static/images/ti/timeseriesenvcost/Sheet1/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='timeseriesenvcost/Sheet1' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/ti/timeseriesenvcost/Sheet1/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, ts, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713371895380'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
Column {data-width=500}
-----------------------------------------------------------------------
### Chart B
```{r}
```
Clustering
===
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Chart A
```{r}
ecic <- subset(eci[,10:11])
clust <- na.omit(ecic)
ecic$Working.Capacity <- as.numeric(as.factor(ecic$Working.Capacity))
ecic$Total.Environmental.Cost <- as.numeric(as.factor(ecic$Total.Environmental.Cost))
kmeans_result <- kmeans(ecic,
centers = 4,
nstart = 20)
plot(ecic[,1], ecic[,2],
col = kmeans_result$cluster,
pch = 19,
main = "K Means Clustering of Cost and Working Capacity",
xlab = "Total Environmental Cost",
ylab = "Working Capacity") -> x
points(kmeans_result$centers[,1], kmeans_result$centers[,2],
col = 1:4, pch = 8, cex = 2)
```
### Chart B
```{r}
ecib <- eci[, c("EnvironmentalIntensitySalesFinal", "Biodiversity")]
clust <- na.omit(ecib)
ecib$EnvironmentalIntensitySalesFinal <- as.numeric(as.factor(ecib$EnvironmentalIntensitySalesFinal))
ecib$Biodiversity <- as.numeric(gsub(",","", ecib$Biodiversity))
kmeans_result <- kmeans(ecib,
centers = 2,
nstart = 20)
plot(ecib[,1], ecib[,2],
col = kmeans_result$cluster,
pch = 19,
main = "K Means Clustering of Sales and Biodiversity",
xlab = "Environmental Intensity Sales",
ylab = "Biodiversity") -> x
points(kmeans_result$centers[,1], kmeans_result$centers[,2],
col = 1:4, pch = 8, cex = 2)
```
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Hierarchial 1
```{r}
ecix <- subset(eci[,9:10])
clust <- na.omit(ecic)
ecix$EnvironmentalIntensityOpInc <- as.numeric(as.factor(ecix$EnvironmentalIntensityOpInc))
ecix$Total.Environmental.Cost <- as.numeric(as.factor(ecix$Total.Environmental.Cost))
r <- dist(ecix)
hcr <- hclust(r, method = "complete")
plot(hcr, labels = FALSE, hang = -1,
main = "Hierarchical Clustering Dendrogram of Intensity and Cost",
xlab = "Distance")
```
### Hierarchial 2
```{r}
d <- dist(ecib)
hc <- hclust(d, method = "complete")
plot(hc, labels = FALSE, hang = -1,
main = "Hierarchical Clustering Dendrogram of Sales and Biodiversity",
xlab = "Distance",
ylab = "Height")
```
Maps
===
Column {.tabset data-width=1000}
-----------------------------------------------------------------------
### Sales
<div class='tableauPlaceholder' id='viz1713364225541' style='position: relative'>
<noscript><a href='#'><img alt='Sum of Environmental Intensity (Sales) ' src='https://public.tableau.com/static/images/SH/SHYBQ85TG/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='path' value='shared/SHYBQ85TG' /> <param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/SH/SHYBQ85TG/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object>
</div>
```{js, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713364225541');
var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script');
scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Cost
<div class='tableauPlaceholder' id='viz1713368088604' style='position: relative'><noscript><a href='#'><img alt='Sum of Environmental Cost ' src='https://public.tableau.com/static/images/en/environmentalcost/EnvCost/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='environmentalcost/EnvCost' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/en/environmentalcost/EnvCost/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map2, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368088604'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Biodiversity
<div class='tableauPlaceholder' id='viz1713368129970' style='position: relative'><noscript><a href='#'><img alt='Sum of Biodiversity ' src='https://public.tableau.com/static/images/bi/biodiversity_17133680432790/Biodiv/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='biodiversity_17133680432790/Biodiv' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/bi/biodiversity_17133680432790/Biodiv/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map3, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368129970'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Abiotic
<div class='tableauPlaceholder' id='viz1713368169283' style='position: relative'><noscript><a href='#'><img alt='Sum of Abiotic Resources ' src='https://public.tableau.com/static/images/ab/abiotic/Abiotic/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='abiotic/Abiotic' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/ab/abiotic/Abiotic/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map4, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368169283'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Crop
<div class='tableauPlaceholder' id='viz1713368207334' style='position: relative'><noscript><a href='#'><img alt='Sum of Crop Production Capacity ' src='https://public.tableau.com/static/images/cr/cropproduction_17133678492700/CropProdCap/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='cropproduction_17133678492700/CropProdCap' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/cr/cropproduction_17133678492700/CropProdCap/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map5, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368207334'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Fish
<div class='tableauPlaceholder' id='viz1713367130393' style='position: relative'><noscript><a href='#'><img alt='Sum of Fish Production Capacity ' src='https://public.tableau.com/static/images/en/envcost/FishProdCap/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='envcost/FishProdCap' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/en/envcost/FishProdCap/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map6, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367130393'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Meat
<div class='tableauPlaceholder' id='viz1713367155403' style='position: relative'><noscript><a href='#'><img alt='Sum of Meat Production Capacity ' src='https://public.tableau.com/static/images/me/meatprodcap/MeatProdCap/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='meatprodcap/MeatProdCap' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/me/meatprodcap/MeatProdCap/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map7, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367155403'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Water
<div class='tableauPlaceholder' id='viz1713367182160' style='position: relative'><noscript><a href='#'><img alt='Sum of Water Production Capacity ' src='https://public.tableau.com/static/images/wa/waterprodcap/WaterProd/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='waterprodcap/WaterProd' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/wa/waterprodcap/WaterProd/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map8, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367182160'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Wood
<div class='tableauPlaceholder' id='viz1713367205393' style='position: relative'><noscript><a href='#'><img alt='Sum of Wood Production Capacity ' src='https://public.tableau.com/static/images/wo/woodprodcap/Wood/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='woodprodcap/Wood' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/wo/woodprodcap/Wood/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map9, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367205393'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Work
<div class='tableauPlaceholder' id='viz1713367235518' style='position: relative'><noscript><a href='#'><img alt='Sum of Working Capacity ' src='https://public.tableau.com/static/images/wo/workcap/Work/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='workcap/Work' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/wo/workcap/Work/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map10, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367235518'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
Summary
===
Column {data-width=500}
-----------------------------------------------------------------------
### Chart A
```{r}
```
Column {data-width=500}
-----------------------------------------------------------------------
### Chart B
```{r}
```
References
===
Column {data-width=500}
---
**References**
+[Practitioner Guide to Calculating Corporate Environmental Impact](https://ifvi.org/wp-content/uploads/2023/10/Practitioner-Guide-To-Calculating-Corporate-Environmental-Impact.pdf)
+[Corporate Environmental Impact: Measurement, Data, and Information](https://www.hbs.edu/ris/Publication%20Files/Environmental%20Impact%20Draft%20Final%2010-8-22_0f521334-0a79-49e3-8637-518fb743a0a3.pdf)
+[HBS: Corporate Environmental Impact: Measurement, Data and Information](https://www.hbs.edu/faculty/research/publications/Pages/default.aspx?q=Corporate%20Environmental%20Impact%3A%20Measurement%2C%20Data%20)
+[Working Knowledge: Corporate Environmental Impact: Measurement, Data and Information](https://hbswk.hbs.edu/item/corporate-environmental-impact-measurement-data-and-information)
Author
===
Column {data-width=500}
-----------------------------------------------------------------------
### Hello
Caralina Lynn Crouch is a chemistry study at the University of Dayton. She is
also pursuing a Data Analytics minor and is a member of the Dayton Civic Scholars
2025 Cohort. Her interests include exploring the overlap of science and community
while also keeping her artist identity in mind.
You can keep up to date with her on [LinkedIn](https://www.linkedin.com/in/caralina-lynn-crouch-8015a8249/).
Column {data-width=500}
-----------------------------------------------------------------------
###
